sub astinvadldirxor(tvram as uinteger,tram as uinteger,tlen as uinteger,txor as uinteger):
'- testar....
  asm
    ld d,(ix+5)
    ld e,(ix+4)
    ld h,(ix+7)
    ld l,(ix+6)
    ld b,(ix+9)
    ld c,(ix+8)

    astinvadldirxorloop:

    push bc
    ld a,(hl)    ; Get data byte
    ld b,(ix+10)
    xor b
    ld (de),a    ; funciona?
    pop bc

    inc hl       ; Point to next letter
    inc de

    ;add de,32    ; funciona?
    ;ex de,hl
    ;push de
    ;ld de,32
    ;add hl,de
    ;pop de
    ;ex de,hl
    
    dec bc
    ld a,b
    or c
    jp nz,astinvadldirxorloop

    end asm
  end sub

'-------------------------------------------------------------------------------
'- LDIRVM (from msx bios)
'- Address  : #005C
'- Function : Block transfer to VRAM from memory
'- Input    : DE - Start address of VRAM
'-            HL - Start address of memory
'-            BC - blocklength
'- Registers: All
